Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/likene1a/myprog5.frm

Visual Basic Form | 1999-09-24 | 10.5 KB | 356 lines

VERSION 5.00
Begin VB.Form Form3
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Message manager"
   ClientHeight    =   3000
   ClientLeft      =   3900
   ClientTop       =   2490
   ClientWidth     =   5280
   ControlBox      =   0   'False
   BeginProperty Font
      Name            =   "Arial"
      Size            =   8.25
      Charset         =   0
      Weight          =   700
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form3"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3000
   ScaleWidth      =   5280
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton Command20
      Caption         =   "Abort/ Retry/ Ignore"
      Height          =   495
      Left            =   3960
      TabIndex        =   26
      Top             =   2520
      Width           =   1335
   End
   Begin VB.CommandButton Command25
      Appearance      =   0  'Flat
      BackColor       =   &H00C0C0C0&
      Caption         =   "Exit"
      Height          =   375
      Left            =   3960
      TabIndex        =   2
      Top             =   0
      Width           =   1335
   End
   Begin VB.CommandButton Command17
      Caption         =   "Abort/ Retry/ Ignore"
      Height          =   495
      Left            =   2640
      TabIndex        =   19
      Top             =   2520
      Width           =   1335
   End
   Begin VB.CommandButton Command18
      Caption         =   "Abort/ Retry/ Ignore"
      Height          =   495
      Left            =   1320
      TabIndex        =   20
      Top             =   2520
      Width           =   1335
   End
   Begin VB.CommandButton Command19
      Caption         =   "Abort/ Retry/ Ignore"
      Height          =   495
      Left            =   0
      TabIndex        =   21
      Top             =   2520
      Width           =   1335
   End
   Begin VB.CommandButton Command16
      Caption         =   "Yes/ no"
      Height          =   375
      Left            =   3960
      TabIndex        =   18
      Top             =   2160
      Width           =   1335
   End
   Begin VB.CommandButton Command15
      Caption         =   "Yes/ no"
      Height          =   375
      Left            =   2640
      TabIndex        =   17
      Top             =   2160
      Width           =   1335
   End
   Begin VB.CommandButton Command14
      Caption         =   "Yes/ no"
      Height          =   375
      Left            =   1320
      TabIndex        =   16
      Top             =   2160
      Width           =   1335
   End
   Begin VB.CommandButton Command13
      Caption         =   "Yes/ no"
      Height          =   375
      Left            =   0
      TabIndex        =   15
      Top             =   2160
      Width           =   1335
   End
   Begin VB.CommandButton Command12
      Caption         =   "Retry/ cancel"
      Height          =   375
      Left            =   3960
      TabIndex        =   14
      Top             =   1800
      Width           =   1335
   End
   Begin VB.CommandButton Command11
      Caption         =   "Retry/ cancel"
      Height          =   375
      Left            =   2640
      TabIndex        =   13
      Top             =   1800
      Width           =   1335
   End
   Begin VB.CommandButton Command10
      Caption         =   "Retry/ cancel"
      Height          =   375
      Left            =   1320
      TabIndex        =   12
      Top             =   1800
      Width           =   1335
   End
   Begin VB.CommandButton Command9
      Caption         =   "Retry/ cancel"
      Height          =   375
      Left            =   0
      TabIndex        =   11
      Top             =   1800
      Width           =   1335
   End
   Begin VB.CommandButton Command8
      Caption         =   "Ok/ cancel"
      Height          =   375
      Left            =   3960
      TabIndex        =   10
      Top             =   1440
      Width           =   1335
   End
   Begin VB.CommandButton Command7
      Caption         =   "Ok"
      Height          =   375
      Left            =   3960
      TabIndex        =   9
      Top             =   1080
      Width           =   1335
   End
   Begin VB.CommandButton Command6
      Caption         =   "Ok/ cancel"
      Height          =   375
      Left            =   2640
      TabIndex        =   8
      Top             =   1440
      Width           =   1335
   End
   Begin VB.CommandButton Command5
      Caption         =   "Ok"
      Height          =   375
      Left            =   2640
      TabIndex        =   7
      Top             =   1080
      Width           =   1335
   End
   Begin VB.CommandButton Command4
      Caption         =   "Ok/ cancel"
      Height          =   375
      Left            =   1320
      TabIndex        =   6
      Top             =   1440
      Width           =   1335
   End
   Begin VB.CommandButton Command3
      Caption         =   "Ok/ cancel"
      Height          =   375
      Left            =   0
      TabIndex        =   5
      Top             =   1440
      Width           =   1335
   End
   Begin VB.CommandButton Command2
      Caption         =   "Ok"
      Height          =   375
      Left            =   1320
      TabIndex        =   4
      Top             =   1080
      Width           =   1335
   End
   Begin VB.CommandButton Command1
      Caption         =   "Ok"
      Height          =   375
      Left            =   0
      TabIndex        =   3
      Top             =   1080
      Width           =   1335
   End
   Begin VB.TextBox Text1
      Height          =   315
      Left            =   0
      TabIndex        =   1
      Text            =   "C:/ not found..."
      Top             =   360
      Width           =   5295
   End
   Begin VB.Label Label5
      Caption         =   "Stop"
      Height          =   255
      Left            =   4320
      TabIndex        =   25
      Top             =   720
      Width           =   615
   End
   Begin VB.Label Label4
      Caption         =   "Warning"
      Height          =   255
      Left            =   2880
      TabIndex        =   24
      Top             =   720
      Width           =   735
   End
   Begin VB.Label Label3
      Caption         =   "Information"
      Height          =   255
      Left            =   1440
      TabIndex        =   23
      Top             =   720
      Width           =   975
   End
   Begin VB.Label Label2
      Caption         =   "Qusetion"
      Height          =   255
      Left            =   240
      TabIndex        =   22
      Top             =   720
      Width           =   975
   End
   Begin VB.Label Label1
      Caption         =   "Message:"
      Height          =   255
      Left            =   2160
      TabIndex        =   0
      Top             =   0
      Width           =   855
   End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim mmflag As Boolean
Dim sax As Integer
Dim Say As Integer
Private Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As String, ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
   (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, _
   ByVal nCmdShow As Long) As Long
 Private Const SW_HIDE = 0
 Private Const SW_SHOWNORMAL = 1
Private Sub Command1_Click()
MsgBox Text1.Text, 32 + 0, "Question"
End Sub
Private Sub command10_Click()
MsgBox Text1.Text, 64 + 5, "Info"
End Sub
Private Sub Command11_Click()
MsgBox Text1.Text, vbExclamation + 5, "Warning"
End Sub
Private Sub Command12_Click()
MsgBox Text1.Text, vbCritical + 5, "Stop"
End Sub
Private Sub Command13_Click()
MsgBox Text1.Text, 32 + 4, "Question"
End Sub
Private Sub Command14_Click()
MsgBox Text1.Text, 64 + 4, "Info"
End Sub
Private Sub Command15_Click()
MsgBox Text1.Text, vbExclamation + 4, "Warning"
End Sub
Private Sub Command16_Click()
MsgBox Text1.Text, vbCritical + 4, "Stop"
End Sub
Private Sub Command17_Click()
MsgBox Text1.Text, vbExclamation + 2, "Warning"
End Sub
Private Sub Command18_Click()
MsgBox Text1.Text, 64 + 2, "Info"
End Sub
Private Sub Command19_Click()
MsgBox Text1.Text, 32 + 2, "Question"
End Sub
Private Sub Command2_Click()
MsgBox Text1.Text, 64 + 0, "Info"
End Sub
Private Sub Command20_Click()
MsgBox Text1.Text, vbCritical + 2, "Stop"
End Sub
Private Sub Command25_Click()
    Call ImplodeForm(Me, 2, 500, 1)
    Unload Form3
    frmmain.Show
End Sub
Private Sub Command3_Click()
MsgBox Text1.Text, 32 + 1, "Question"
End Sub
Private Sub Command4_Click()
MsgBox Text1.Text, 64 + 1, "Info"
End Sub
Private Sub Command5_Click()
MsgBox Text1.Text, vbExclamation + vbOKOnly, "Warning"
End Sub
Private Sub Command6_Click()
MsgBox Text1.Text, vbExclamation + 1, "Warning"
End Sub
Private Sub Command7_Click()
MsgBox Text1.Text, vbCritical + vbOKOnly, "Stop"
End Sub
Private Sub Command8_Click()
MsgBox Text1.Text, vbCritical + 1, "Stop"
End Sub
Private Sub Command9_Click()
MsgBox Text1.Text, 32 + 5, "Question"
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Dim fml As Long
   Dim fmt As Long
   Dim a As Integer
   If mmflag = True Then
      fml = Me.Left: fmt = Me.Top
      If X > sax Then Me.Left = fml + (X - sax)
        If X < sax Then Me.Left = fml - (sax - X)
      If Y > Say Then Me.Top = fmt + (Y - Say)
      If Y < Say Then Me.Top = fmt - (Say - Y)
   End If
   End Sub
Private Sub form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If mmflag = False Then
      sax = X
      Say = Y
      mmflag = True
   End If
   Me.MousePointer = vbSizePointer
   End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    mmflag = False
   Me.MousePointer = vbDefault
End Sub